home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / readerstuff / a.evans / slide / slide.amos / slide.amosSourceCode < prev    next >
AMOS Source Code  |  1996-08-30  |  791b  |  25 lines
  1. Screen Open 0,320,256,32,Lowres
  2. Track Loop On : Track Play 1
  3. Curs Off : Flash Off : Cls 0 : Hide 
  4. Paper 0 : Pen 2
  5. Locate 0,0
  6. Centre "This is my Amiga slideshow."
  7. Print : Centre "Written in AMOS basic."
  8. Print : Centre "Pics converted from 4096 to 32 colours."
  9. Print : Centre "Source of pictures: Multimedia Toolkit."
  10. Print : Centre "Music by MOBY."
  11. Print : Centre "Coded by Kaptin Krypton in 1996."
  12. Print : Centre "Press space to pause on any picture."
  13. Wait 50
  14. 55
  15. Read P$
  16. If P$="LAST" Then Restore : Goto 55
  17. Load Iff P$+".iff"
  18. For A=1 To 50000
  19.    A$=Inkey$
  20.    If A$=" " Then Wait Key 
  21. Next A
  22. Rem ******title screen*****
  23. 15 For X=1 To 320 : Draw X,0 To X,256 : Next X
  24. Goto 55
  25. Data "BIMOTA","ZXR750","DUCATI","BENTLEY4","ASTON","WILLIAMS","SENNA2","MANSLL33","MANSLL15","LYNX","ALPHAJET","LAST"